home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 February / EnigmA AMIGA RUN 04 (1996)(G.R. Edizioni)(IT)[!][issue 1996-02][Skylink CD III].iso / earcd / ear / fraphix1.lha / FraphiX.LHA / FraphiX / rexx / ConverteAnim.rexx next >
OS/2 REXX Batch file  |  1995-08-02  |  1KB  |  49 lines
  1. /* Questo script ARexx serve per pilotare BuildAnim da Fraphix*/
  2. /* $VER1.0 */
  3.  
  4. if~show("L","rexxsupport.library") then do
  5.    if addlib('rexxsupport.library',0,-30,0) then
  6.       say "Rexxsupport.library caricata"
  7.    else do
  8.       say "Rexxsupport.library non trovata"
  9.       exit 10
  10.    end
  11. end
  12.  
  13. /* Luttura dei parametri passati come variabili dell'AmigaDOS */
  14. open('input','Env:Nome.FX',read)
  15.       Nome = readln('input')
  16. close('input')
  17. Fraphix_Dir = "Fraphix:"
  18. parametri = Nome || " Fraphix_Store:TempAnim Anim5"
  19.  
  20.  
  21. LF = x2c("a")
  22. if exists("Env:FlagARexx") = 0 then do
  23.        say LF || "Invio messaggio: ATTENDI"
  24.        call delay 50
  25. end
  26. say LF || "Conversione in corso..." || LF
  27.  
  28. comando = Fraphix_Dir || "BuildAnim/BuildAnim " || parametri
  29. /* say comando */
  30. address command comando
  31.  
  32. if exists("Env:FlagARexx") = 0 then do
  33.        say "Invio messaggio: CONTINUA"||LF||"Attesa risposta..."
  34.        call delay 50
  35.  
  36.        address "FRAPHIX"
  37.        options results
  38.        QUIT
  39.  
  40.        if (rc=0) then
  41.              say lf||"Risposta Ricevuta."
  42.             else do
  43.              say lf||"Errore "||rc||lf||result
  44.        end
  45.  
  46. call delay 300
  47. end
  48.  
  49.